home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / barcod.exe / BARCODS2.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-09-03  |  22.3 KB  |  710 lines
  1. VERSION 4.00
  2. Begin VB.Form BARCODS2 
  3.    Appearance      =   0  'Flat
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "BarCod Sample #2"
  6.    ClientHeight    =   4335
  7.    ClientLeft      =   1470
  8.    ClientTop       =   2445
  9.    ClientWidth     =   5295
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   0
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    Height          =   4740
  21.    Left            =   1410
  22.    LinkTopic       =   "Form1"
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    ScaleHeight     =   4335
  26.    ScaleWidth      =   5295
  27.    Top             =   2100
  28.    Width           =   5415
  29.    Begin VB.TextBox Text1 
  30.       Appearance      =   0  'Flat
  31.       BeginProperty Font 
  32.          name            =   "MS Sans Serif"
  33.          charset         =   0
  34.          weight          =   400
  35.          size            =   8.25
  36.          underline       =   0   'False
  37.          italic          =   0   'False
  38.          strikethrough   =   0   'False
  39.       EndProperty
  40.       Height          =   285
  41.       Index           =   14
  42.       Left            =   3840
  43.       TabIndex        =   30
  44.       Top             =   3120
  45.       Width           =   1215
  46.    End
  47.    Begin VB.TextBox Text1 
  48.       Appearance      =   0  'Flat
  49.       BeginProperty Font 
  50.          name            =   "MS Sans Serif"
  51.          charset         =   0
  52.          weight          =   400
  53.          size            =   8.25
  54.          underline       =   0   'False
  55.          italic          =   0   'False
  56.          strikethrough   =   0   'False
  57.       EndProperty
  58.       Height          =   285
  59.       Index           =   13
  60.       Left            =   3840
  61.       TabIndex        =   28
  62.       Top             =   2760
  63.       Width           =   1215
  64.    End
  65.    Begin VB.TextBox Text1 
  66.       Appearance      =   0  'Flat
  67.       BeginProperty Font 
  68.          name            =   "MS Sans Serif"
  69.          charset         =   0
  70.          weight          =   400
  71.          size            =   8.25
  72.          underline       =   0   'False
  73.          italic          =   0   'False
  74.          strikethrough   =   0   'False
  75.       EndProperty
  76.       Height          =   285
  77.       Index           =   12
  78.       Left            =   3840
  79.       TabIndex        =   26
  80.       Top             =   2400
  81.       Width           =   1215
  82.    End
  83.    Begin VB.TextBox Text1 
  84.       Appearance      =   0  'Flat
  85.       BeginProperty Font 
  86.          name            =   "MS Sans Serif"
  87.          charset         =   0
  88.          weight          =   400
  89.          size            =   8.25
  90.          underline       =   0   'False
  91.          italic          =   0   'False
  92.          strikethrough   =   0   'False
  93.       EndProperty
  94.       Height          =   285
  95.       Index           =   11
  96.       Left            =   3840
  97.       TabIndex        =   24
  98.       Top             =   2040
  99.       Width           =   1215
  100.    End
  101.    Begin VB.TextBox Text1 
  102.       Appearance      =   0  'Flat
  103.       BeginProperty Font 
  104.          name            =   "MS Sans Serif"
  105.          charset         =   0
  106.          weight          =   400
  107.          size            =   8.25
  108.          underline       =   0   'False
  109.          italic          =   0   'False
  110.          strikethrough   =   0   'False
  111.       EndProperty
  112.       Height          =   285
  113.       Index           =   10
  114.       Left            =   3840
  115.       TabIndex        =   22
  116.       Top             =   1680
  117.       Width           =   1215
  118.    End
  119.    Begin VB.TextBox Text1 
  120.       Appearance      =   0  'Flat
  121.       BeginProperty Font 
  122.          name            =   "MS Sans Serif"
  123.          charset         =   0
  124.          weight          =   400
  125.          size            =   8.25
  126.          underline       =   0   'False
  127.          italic          =   0   'False
  128.          strikethrough   =   0   'False
  129.       EndProperty
  130.       Height          =   285
  131.       Index           =   9
  132.       Left            =   3840
  133.       TabIndex        =   20
  134.       Top             =   1320
  135.       Width           =   1215
  136.    End
  137.    Begin VB.TextBox Text1 
  138.       Appearance      =   0  'Flat
  139.       BeginProperty Font 
  140.          name            =   "MS Sans Serif"
  141.          charset         =   0
  142.          weight          =   400
  143.          size            =   8.25
  144.          underline       =   0   'False
  145.          italic          =   0   'False
  146.          strikethrough   =   0   'False
  147.       EndProperty
  148.       Height          =   285
  149.       Index           =   8
  150.       Left            =   1320
  151.       TabIndex        =   18
  152.       Top             =   3120
  153.       Width           =   1215
  154.    End
  155.    Begin VB.TextBox Text1 
  156.       Appearance      =   0  'Flat
  157.       BeginProperty Font 
  158.          name            =   "MS Sans Serif"
  159.          charset         =   0
  160.          weight          =   400
  161.          size            =   8.25
  162.          underline       =   0   'False
  163.          italic          =   0   'False
  164.          strikethrough   =   0   'False
  165.       EndProperty
  166.       Height          =   285
  167.       Index           =   7
  168.       Left            =   1320
  169.       TabIndex        =   16
  170.       Top             =   2760
  171.       Width           =   1215
  172.    End
  173.    Begin VB.TextBox Text1 
  174.       Appearance      =   0  'Flat
  175.       BeginProperty Font 
  176.          name            =   "MS Sans Serif"
  177.          charset         =   0
  178.          weight          =   400
  179.          size            =   8.25
  180.          underline       =   0   'False
  181.          italic          =   0   'False
  182.          strikethrough   =   0   'False
  183.       EndProperty
  184.       Height          =   285
  185.       Index           =   6
  186.       Left            =   1320
  187.       TabIndex        =   14
  188.       Top             =   2400
  189.       Width           =   1215
  190.    End
  191.    Begin VB.TextBox Text1 
  192.       Appearance      =   0  'Flat
  193.       BeginProperty Font 
  194.          name            =   "MS Sans Serif"
  195.          charset         =   0
  196.          weight          =   400
  197.          size            =   8.25
  198.          underline       =   0   'False
  199.          italic          =   0   'False
  200.          strikethrough   =   0   'False
  201.       EndProperty
  202.       Height          =   285
  203.       Index           =   5
  204.       Left            =   1320
  205.       TabIndex        =   12
  206.       Top             =   2040
  207.       Width           =   1215
  208.    End
  209.    Begin VB.TextBox Text1 
  210.       Appearance      =   0  'Flat
  211.       BeginProperty Font 
  212.          name            =   "MS Sans Serif"
  213.          charset         =   0
  214.          weight          =   400
  215.          size            =   8.25
  216.          underline       =   0   'False
  217.          italic          =   0   'False
  218.          strikethrough   =   0   'False
  219.       EndProperty
  220.       Height          =   285
  221.       Index           =   4
  222.       Left            =   1320
  223.       TabIndex        =   10
  224.       Top             =   1680
  225.       Width           =   1215
  226.    End
  227.    Begin VB.TextBox Text1 
  228.       Appearance      =   0  'Flat
  229.       BeginProperty Font 
  230.          name            =   "MS Sans Serif"
  231.          charset         =   0
  232.          weight          =   400
  233.          size            =   8.25
  234.          underline       =   0   'False
  235.          italic          =   0   'False
  236.          strikethrough   =   0   'False
  237.       EndProperty
  238.       Height          =   285
  239.       Index           =   3
  240.       Left            =   1320
  241.       TabIndex        =   8
  242.       Top             =   1320
  243.       Width           =   1215
  244.    End
  245.    Begin VB.TextBox Text1 
  246.       Appearance      =   0  'Flat
  247.       BeginProperty Font 
  248.          name            =   "MS Sans Serif"
  249.          charset         =   0
  250.          weight          =   400
  251.          size            =   8.25
  252.          underline       =   0   'False
  253.          italic          =   0   'False
  254.          strikethrough   =   0   'False
  255.       EndProperty
  256.       Height          =   285
  257.       Index           =   2
  258.       Left            =   1320
  259.       TabIndex        =   6
  260.       Top             =   960
  261.       Width           =   1215
  262.    End
  263.    Begin VB.TextBox Text1 
  264.       Appearance      =   0  'Flat
  265.       BeginProperty Font 
  266.          name            =   "MS Sans Serif"
  267.          charset         =   0
  268.          weight          =   400
  269.          size            =   8.25
  270.          underline       =   0   'False
  271.          italic          =   0   'False
  272.          strikethrough   =   0   'False
  273.       EndProperty
  274.       Height          =   285
  275.       Index           =   1
  276.       Left            =   1320
  277.       TabIndex        =   4
  278.       Top             =   600
  279.       Width           =   1215
  280.    End
  281.    Begin VB.TextBox Text1 
  282.       Appearance      =   0  'Flat
  283.       BeginProperty Font 
  284.          name            =   "MS Sans Serif"
  285.          charset         =   0
  286.          weight          =   400
  287.          size            =   8.25
  288.          underline       =   0   'False
  289.          italic          =   0   'False
  290.          strikethrough   =   0   'False
  291.       EndProperty
  292.       Height          =   285
  293.       Index           =   0
  294.       Left            =   1320
  295.       TabIndex        =   2
  296.       Top             =   240
  297.       Width           =   1215
  298.    End
  299.    Begin VB.CommandButton Command2 
  300.       Appearance      =   0  'Flat
  301.       BackColor       =   &H80000005&
  302.       Caption         =   "Print Barcode Sample"
  303.       BeginProperty Font 
  304.          name            =   "MS Sans Serif"
  305.          charset         =   0
  306.          weight          =   400
  307.          size            =   8.25
  308.          underline       =   0   'False
  309.          italic          =   0   'False
  310.          strikethrough   =   0   'False
  311.       EndProperty
  312.       Height          =   375
  313.       Left            =   2760
  314.       TabIndex        =   1
  315.       Top             =   720
  316.       Width           =   2295
  317.    End
  318.    Begin VB.CommandButton Command1 
  319.       Appearance      =   0  'Flat
  320.       BackColor       =   &H80000005&
  321.       Caption         =   "Exit Sample"
  322.       BeginProperty Font 
  323.          name            =   "MS Sans Serif"
  324.          charset         =   0
  325.          weight          =   400
  326.          size            =   8.25
  327.          underline       =   0   'False
  328.          italic          =   0   'False
  329.          strikethrough   =   0   'False
  330.       EndProperty
  331.       Height          =   375
  332.       Left            =   2760
  333.       TabIndex        =   0
  334.       Top             =   240
  335.       Width           =   2295
  336.    End
  337.    Begin BarcodLib.Barcod Barcode1 
  338.       Height          =   495
  339.       Left            =   240
  340.       TabIndex        =   33
  341.       Top             =   4560
  342.       Width           =   4815
  343.       _Version        =   65542
  344.       _ExtentX        =   8493
  345.       _ExtentY        =   873
  346.       _StockProps     =   75
  347.       BackColor       =   16777215
  348.       BarWidth        =   0
  349.       Direction       =   0
  350.       Style           =   3
  351.       UPCNotches      =   0
  352.    End
  353.    Begin VB.Label Label2 
  354.       Appearance      =   0  'Flat
  355.       Caption         =   $"BARCODS2.frx":0000
  356.       BeginProperty Font 
  357.          name            =   "MS Sans Serif"
  358.          charset         =   0
  359.          weight          =   400
  360.          size            =   8.25
  361.          underline       =   0   'False
  362.          italic          =   0   'False
  363.          strikethrough   =   0   'False
  364.       EndProperty
  365.       ForeColor       =   &H80000008&
  366.       Height          =   615
  367.       Left            =   240
  368.       TabIndex        =   32
  369.       Top             =   3600
  370.       Width           =   4815
  371.    End
  372.    Begin VB.Label Label1 
  373.       Appearance      =   0  'Flat
  374.       Caption         =   "Barcode 15"
  375.       BeginProperty Font 
  376.          name            =   "MS Sans Serif"
  377.          charset         =   0
  378.          weight          =   400
  379.          size            =   8.25
  380.          underline       =   0   'False
  381.          italic          =   0   'False
  382.          strikethrough   =   0   'False
  383.       EndProperty
  384.       ForeColor       =   &H80000008&
  385.       Height          =   255
  386.       Index           =   14
  387.       Left            =   2760
  388.       TabIndex        =   31
  389.       Top             =   3180
  390.       Width           =   1095
  391.    End
  392.    Begin VB.Label Label1 
  393.       Appearance      =   0  'Flat
  394.       Caption         =   "Barcode 14"
  395.       BeginProperty Font 
  396.          name            =   "MS Sans Serif"
  397.          charset         =   0
  398.          weight          =   400
  399.          size            =   8.25
  400.          underline       =   0   'False
  401.          italic          =   0   'False
  402.          strikethrough   =   0   'False
  403.       EndProperty
  404.       ForeColor       =   &H80000008&
  405.       Height          =   255
  406.       Index           =   13
  407.       Left            =   2760
  408.       TabIndex        =   29
  409.       Top             =   2820
  410.       Width           =   1095
  411.    End
  412.    Begin VB.Label Label1 
  413.       Appearance      =   0  'Flat
  414.       Caption         =   "Barcode 13"
  415.       BeginProperty Font 
  416.          name            =   "MS Sans Serif"
  417.          charset         =   0
  418.          weight          =   400
  419.          size            =   8.25
  420.          underline       =   0   'False
  421.          italic          =   0   'False
  422.          strikethrough   =   0   'False
  423.       EndProperty
  424.       ForeColor       =   &H80000008&
  425.       Height          =   255
  426.       Index           =   12
  427.       Left            =   2760
  428.       TabIndex        =   27
  429.       Top             =   2460
  430.       Width           =   1095
  431.    End
  432.    Begin VB.Label Label1 
  433.       Appearance      =   0  'Flat
  434.       Caption         =   "Barcode 12"
  435.       BeginProperty Font 
  436.          name            =   "MS Sans Serif"
  437.          charset         =   0
  438.          weight          =   400
  439.          size            =   8.25
  440.          underline       =   0   'False
  441.          italic          =   0   'False
  442.          strikethrough   =   0   'False
  443.       EndProperty
  444.       ForeColor       =   &H80000008&
  445.       Height          =   255
  446.       Index           =   11
  447.       Left            =   2760
  448.       TabIndex        =   25
  449.       Top             =   2100
  450.       Width           =   1095
  451.    End
  452.    Begin VB.Label Label1 
  453.       Appearance      =   0  'Flat
  454.       Caption         =   "Barcode 11"
  455.       BeginProperty Font 
  456.          name            =   "MS Sans Serif"
  457.          charset         =   0
  458.          weight          =   400
  459.          size            =   8.25
  460.          underline       =   0   'False
  461.          italic          =   0   'False
  462.          strikethrough   =   0   'False
  463.       EndProperty
  464.       ForeColor       =   &H80000008&
  465.       Height          =   255
  466.       Index           =   10
  467.       Left            =   2760
  468.       TabIndex        =   23
  469.       Top             =   1740
  470.       Width           =   1095
  471.    End
  472.    Begin VB.Label Label1 
  473.       Appearance      =   0  'Flat
  474.       Caption         =   "Barcode 10"
  475.       BeginProperty Font 
  476.          name            =   "MS Sans Serif"
  477.          charset         =   0
  478.          weight          =   400
  479.          size            =   8.25
  480.          underline       =   0   'False
  481.          italic          =   0   'False
  482.          strikethrough   =   0   'False
  483.       EndProperty
  484.       ForeColor       =   &H80000008&
  485.       Height          =   255
  486.       Index           =   9
  487.       Left            =   2760
  488.       TabIndex        =   21
  489.       Top             =   1380
  490.       Width           =   1095
  491.    End
  492.    Begin VB.Label Label1 
  493.       Appearance      =   0  'Flat
  494.       Caption         =   "Barcode 9"
  495.       BeginProperty Font 
  496.          name            =   "MS Sans Serif"
  497.          charset         =   0
  498.          weight          =   400
  499.          size            =   8.25
  500.          underline       =   0   'False
  501.          italic          =   0   'False
  502.          strikethrough   =   0   'False
  503.       EndProperty
  504.       ForeColor       =   &H80000008&
  505.       Height          =   255
  506.       Index           =   8
  507.       Left            =   240
  508.       TabIndex        =   19
  509.       Top             =   3180
  510.       Width           =   1095
  511.    End
  512.    Begin VB.Label Label1 
  513.       Appearance      =   0  'Flat
  514.       Caption         =   "Barcode 8"
  515.       BeginProperty Font 
  516.          name            =   "MS Sans Serif"
  517.          charset         =   0
  518.          weight          =   400
  519.          size            =   8.25
  520.          underline       =   0   'False
  521.          italic          =   0   'False
  522.          strikethrough   =   0   'False
  523.       EndProperty
  524.       ForeColor       =   &H80000008&
  525.       Height          =   255
  526.       Index           =   7
  527.       Left            =   240
  528.       TabIndex        =   17
  529.       Top             =   2820
  530.       Width           =   1095
  531.    End
  532.    Begin VB.Label Label1 
  533.       Appearance      =   0  'Flat
  534.       Caption         =   "Barcode 7"
  535.       BeginProperty Font 
  536.          name            =   "MS Sans Serif"
  537.          charset         =   0
  538.          weight          =   400
  539.          size            =   8.25
  540.          underline       =   0   'False
  541.          italic          =   0   'False
  542.          strikethrough   =   0   'False
  543.       EndProperty
  544.       ForeColor       =   &H80000008&
  545.       Height          =   255
  546.       Index           =   6
  547.       Left            =   240
  548.       TabIndex        =   15
  549.       Top             =   2460
  550.       Width           =   1095
  551.    End
  552.    Begin VB.Label Label1 
  553.       Appearance      =   0  'Flat
  554.       Caption         =   "Barcode 6"
  555.       BeginProperty Font 
  556.          name            =   "MS Sans Serif"
  557.          charset         =   0
  558.          weight          =   400
  559.          size            =   8.25
  560.          underline       =   0   'False
  561.          italic          =   0   'False
  562.          strikethrough   =   0   'False
  563.       EndProperty
  564.       ForeColor       =   &H80000008&
  565.       Height          =   255
  566.       Index           =   5
  567.       Left            =   240
  568.       TabIndex        =   13
  569.       Top             =   2100
  570.       Width           =   1095
  571.    End
  572.    Begin VB.Label Label1 
  573.       Appearance      =   0  'Flat
  574.       Caption         =   "Barcode 5"
  575.       BeginProperty Font 
  576.          name            =   "MS Sans Serif"
  577.          charset         =   0
  578.          weight          =   400
  579.          size            =   8.25
  580.          underline       =   0   'False
  581.          italic          =   0   'False
  582.          strikethrough   =   0   'False
  583.       EndProperty
  584.       ForeColor       =   &H80000008&
  585.       Height          =   255
  586.       Index           =   4
  587.       Left            =   240
  588.       TabIndex        =   11
  589.       Top             =   1740
  590.       Width           =   1095
  591.    End
  592.    Begin VB.Label Label1 
  593.       Appearance      =   0  'Flat
  594.       Caption         =   "Barcode 4"
  595.       BeginProperty Font 
  596.          name            =   "MS Sans Serif"
  597.          charset         =   0
  598.          weight          =   400
  599.          size            =   8.25
  600.          underline       =   0   'False
  601.          italic          =   0   'False
  602.          strikethrough   =   0   'False
  603.       EndProperty
  604.       ForeColor       =   &H80000008&
  605.       Height          =   255
  606.       Index           =   3
  607.       Left            =   240
  608.       TabIndex        =   9
  609.       Top             =   1380
  610.       Width           =   1095
  611.    End
  612.    Begin VB.Label Label1 
  613.       Appearance      =   0  'Flat
  614.       Caption         =   "Barcode 3"
  615.       BeginProperty Font 
  616.          name            =   "MS Sans Serif"
  617.          charset         =   0
  618.          weight          =   400
  619.          size            =   8.25
  620.          underline       =   0   'False
  621.          italic          =   0   'False
  622.          strikethrough   =   0   'False
  623.       EndProperty
  624.       ForeColor       =   &H80000008&
  625.       Height          =   255
  626.       Index           =   2
  627.       Left            =   240
  628.       TabIndex        =   7
  629.       Top             =   990
  630.       Width           =   1095
  631.    End
  632.    Begin VB.Label Label1 
  633.       Appearance      =   0  'Flat
  634.       Caption         =   "Barcode 2"
  635.       BeginProperty Font 
  636.          name            =   "MS Sans Serif"
  637.          charset         =   0
  638.          weight          =   400
  639.          size            =   8.25
  640.          underline       =   0   'False
  641.          italic          =   0   'False
  642.          strikethrough   =   0   'False
  643.       EndProperty
  644.       ForeColor       =   &H80000008&
  645.       Height          =   255
  646.       Index           =   1
  647.       Left            =   240
  648.       TabIndex        =   5
  649.       Top             =   660
  650.       Width           =   1095
  651.    End
  652.    Begin VB.Label Label1 
  653.       Appearance      =   0  'Flat
  654.       Caption         =   "Barcode 1"
  655.       BeginProperty Font 
  656.          name            =   "MS Sans Serif"
  657.          charset         =   0
  658.          weight          =   400
  659.          size            =   8.25
  660.          underline       =   0   'False
  661.          italic          =   0   'False
  662.          strikethrough   =   0   'False
  663.       EndProperty
  664.       ForeColor       =   &H80000008&
  665.       Height          =   255
  666.       Index           =   0
  667.       Left            =   240
  668.       TabIndex        =   3
  669.       Top             =   300
  670.       Width           =   1095
  671.    End
  672. Attribute VB_Name = "BARCODS2"
  673. Attribute VB_Creatable = False
  674. Attribute VB_Exposed = False
  675. Option Explicit
  676. Private Sub Command1_Click()
  677.     End
  678. End Sub
  679. Private Sub Command2_Click()
  680.     Dim I As Integer
  681.     Screen.MousePointer = 11
  682.     Printer.Print
  683.     Printer.ScaleMode = 1
  684.     Barcode1.PrinterScaleMode = Printer.ScaleMode
  685.     For I = 0 To 14
  686.         Barcode1.Caption = Text1(I).Text
  687.         Barcode1.PrinterLeft = 1440 + (3.25 * 1440) * Int(I / 8)
  688.         Barcode1.PrinterTop = 1440 + 1440 * (I Mod 8)
  689.         Barcode1.PrinterWidth = 3 * 1440
  690.         Barcode1.PrinterHeight = 720
  691.         Barcode1.PrinterHDC = Printer.hDC
  692.         Printer.CurrentX = Barcode1.PrinterLeft
  693.         Printer.CurrentY = Barcode1.PrinterTop + Barcode1.PrinterHeight + 180
  694.         Printer.Print Barcode1.Displayed
  695.     Next I
  696.     Printer.EndDoc
  697.     Screen.MousePointer = 0
  698. End Sub
  699. Private Sub Form_Load()
  700.     Dim I As Integer
  701.     Me.Left = (Screen.Width - Me.Width) / 2
  702.     Me.Top = (Screen.Height - Me.Height) / 2
  703.     For I = 0 To 14
  704.         Text1(I).Text = Chr$(I + 65) + Format$(I)
  705.     Next I
  706. End Sub
  707. Private Sub Form_Unload(Cancel As Integer)
  708.     End
  709. End Sub
  710.